home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / misc / amag / AM9403_2.lha / hdbackup / bru-backup next >
Text File  |  1994-02-28  |  4KB  |  168 lines
  1. .bra {
  2. .ket }
  3.  
  4. ;
  5. ;Dieses Skript dient als Ersatz für HDBackup und erstellt
  6. ;eine Sicherungskopie via BRU.
  7. ;Wie das Rücksichern vonstatten geht, finden Sie im
  8. ;AMIGA-Magazin 3/94 von Markt & Technik, Seite 74
  9. ;
  10. ;
  11. ;Starten Sie dieses Skript via Workbench oder per
  12. ;CLI/Shell
  13. ;
  14. ;Autor: Rainer Zeitler
  15. ;
  16. ;
  17.  
  18.  
  19. WHICH >NIL: bru
  20. IF WARN
  21.   ECHO "Das Programm BRU wurde nicht gefunden!"
  22.   QUIT
  23. ENDIF
  24.  
  25. FAILAT 21
  26. STACK >NIL: 40000
  27.  
  28. IF VAL $kickstart GT 38 ; OS 3.0 vorhanden?
  29.   SETENV BULaufwerk `requestfile DRAWERSONLY "SYS:" TITLE="Laufwerk auswählen!"`
  30. ELSE
  31.   COPY "con:0/0/400/50/Welches Laufwerk oder Verzeichnis sichern?/CLOSE" env:BULaufwerk
  32. ENDIF
  33.  
  34. GETENV >NIL: BULaufwerk
  35. IF WARN
  36.   QUIT
  37. ENDIF
  38.  
  39. CD >NIL: "`getenv BULaufwerk`"
  40.  
  41. IF WARN
  42.   ECHO "Das Verzeichnis/Laufwerk $BULaufwerk existiert nicht!"
  43.   SKIP Ende
  44. ELSE
  45.   IF VAL $kickstart GT 38
  46.     SETENV Backuptyp `requestchoice "Backup" "Welche Backupvariante?" "Voll|Teilweise|Abbruch"`
  47.     IF `getenv Backuptyp` EQ 0
  48.       SKIP Ende
  49.     ENDIF
  50.   ELSE
  51.     ASK "Volles Backup (y=ja, n=nein)? "
  52.     IF WARN
  53.       SETENV Backuptyp "1"
  54.     ELSE
  55.       ASK "Teilweises Backup (y=ja, n=nein)? "
  56.       IF WARN
  57.         SETENV Backuptyp "2"
  58.       ELSE
  59.         SKIP Ende
  60.       ENDIF
  61.     ENDIF
  62.   ENDIF
  63. ENDIF
  64.  
  65. SKIP WaehleBackupLaufwerk
  66.  
  67. LAB Weiter
  68.  
  69. SETENV BRUOptions "-f "
  70.  
  71. ECHO >>ENV:BRUOptions $DiskLaufwerk NOLINE
  72.  
  73. IF VAL $kickstart GT 38
  74.   SET komp `requestchoice "Backup" "Mit Komprimierung?" "Ja|Nein"`
  75.   IF `get komp` EQ 1
  76.     ECHO >>ENV:BRUOptions " -Z" NOLINE
  77.   ENDIF
  78. ELSE
  79.   ASK "Mit Komprimierung? (y=ja, n=nein)? "
  80.   IF WARN
  81.     ECHO >>ENV:BRUOptions " -Z" NOLINE
  82.   ENDIF
  83. ENDIF
  84.  
  85. ;echo "Backuptyp: `getenv Backuptyp`"
  86. ;echo "Disklaufwerk: `getenv DiskLaufwerk`"
  87.  
  88. IF `getenv Backuptyp` EQ 1
  89.   bru -c -b 50000 `getenv BRUOptions` -vvv -As -PP -Il,t:BRUlog -Iq,*
  90. ELSE
  91.   bru -c -b 50000 `getenv BRUOptions` -vvv -As -Ar -PP -Il,t:BRUlog -Iq,*
  92. ENDIF
  93.  
  94.  
  95. IF VAL $kickstart GT 38
  96.   SET komp `requestchoice "Backup" "War das Backup erfolgreich?" "Ja|Nein"`
  97. ELSE
  98.   SET komp "0"
  99.   ASK "War das Backup erfolgreich? (y=ja, n=nein)? "
  100.   IF WARN
  101.     SET komp "1"
  102.   ENDIF
  103. ENDIF
  104.  
  105. IF `get komp` EQ 1
  106.  
  107. LAB ChooseLog
  108.  
  109.   IF VAL $kickstart GT 38 ; OS 3.0 vorhanden?
  110.     SETENV brulogfile `requestfile TITLE="Logdatei auswählen!" DRAWER="LOGDISK:"`
  111.   ELSE
  112.     COPY "con:0/0/400/50/Logdatei auswählen!/CLOSE" env:brulogfile
  113.   ENDIF
  114.  
  115.   getenv >NIL: brulogfile
  116.   IF NOT WARN
  117.     ECHO >$brulogfile "Backup von `getenv BULaufwerk`*N"
  118.     ECHO >>$brulogfile "Datum: `date`*NBackuptyp: " NOLINE
  119.     IF `getenv Backuptyp` EQ 1
  120.       ECHO >>$brulogfile "Voll*N---*N"
  121.     ELSE
  122.       ECHO >>$brulogfile "Teilweise*N---*N"
  123.     ENDIF
  124.  
  125.     ECHO "Setze Archiv-Bits"
  126.     PROTECT >NIL: #? +a ALL
  127.     ECHO "Archiv-Bits gesetzt"
  128.  
  129.     TYPE >>$brulogfile t:BRUlog
  130.   ELSE
  131.     SKIP ChooseLog BACK
  132.   ENDIF
  133.  
  134. ENDIF
  135.  
  136.  
  137. LAB Ende
  138.  
  139. DELETE >NIL: env:BULaufwerk
  140. DELETE >NIL: env:Backuptyp
  141. DELETE >NIL: env:DiskLaufwerk
  142. DELETE >NIL: env:BRUOptions
  143. DELETE >NIL: T:BRUlog
  144. DELETE >NIL: ENV:BRULogFile
  145. QUIT
  146.  
  147. LAB WaehleBackupLaufwerk
  148.  
  149. IF VAL $kickstart GT 38
  150.   SETENV DiskLaufwerk `requestchoice "Backup" "Auf welches Laufwerk sichern?" "DF1:|DF2:|DF3:|DF0:"`
  151.   SETENV Dummy "DF"
  152.   ECHO >>ENV:Dummy $DiskLaufwerk NOLINE
  153.   ECHO >>ENV:Dummy ":" NOLINE
  154.   SETENV DiskLaufwerk $Dummy
  155.   DELETE >NIL: ENV:Dummy
  156. ELSE
  157.   COPY "con:0/0/400/50/Auf welches Laufwerk sichern?/CLOSE" env:DiskLaufwerk
  158. ENDIF
  159.  
  160. ASSIGN >NIL: $DiskLaufwerk exists
  161.  
  162. IF WARN
  163.   ECHO "Ausgewähltes Laufwerk existiert nicht!"
  164.   SKIP Ende BACK
  165. ENDIF
  166.  
  167. SKIP Weiter BACK
  168.